home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / datejour.txt < prev    next >
Text File  |  1994-03-01  |  400b  |  8 lines
  1. 10 '** OISAC 2 ** DATE/JOUR **
  2. 20 DIM N$(12),NJ(12):FOR I=1TO12:READ N$(I),NJ(I):NEXT
  3. 30 CLS:INPUT"DATE JJ/MM : ",D$:J=VAL(LEFT$(D$,2)):M=VAL(RIGHT$(D$,2)):IFM>12ORM<1THENBEEP:GOTO30ELSEIFJ>NJ(M)THENBEEP:GOTO30
  4. 40 NJE=0:FORI=1TOM-1:NJE=NJE+NJ(I):NEXT:NJE=NJE+J
  5. 50 PRINT"LE"J;N$(M);" "NJE"JOURS":END
  6. 100 DATA JAN,31,FEV,29,MAR,31,AVR,30,MAI,31,JUN,30,JUL,31,AOU,31,SEP,30,OCT,31,NOV,30,DEC,31
  7.  
  8.